home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / database / sigrea.zip / SIGREADR.CH < prev    next >
Text File  |  1994-04-12  |  4KB  |  75 lines
  1. //****************************************************************
  2. //* Program Name: sigreadr.ch                                    *
  3. //* Author: Stan Grossman                                        *
  4. //* Copyright (c) 1993 by SIG Software                           *
  5. //*                       9074 Andromeda Drive                   *
  6. //*                       Burke, VA  22015                       *
  7. //*                       703-455-6814                           *
  8. //*                                                              *
  9. //*---------------------------- ALL RIGHTS RESERVED -------------*
  10. //****************************************************************
  11. // SIG additions to GETSYS
  12. //
  13. // Uses replacement reader in SIGREADR.OBJ
  14.  
  15.  
  16. //───── RIGHT clause addition (right justifies char entry)
  17. #xcommand @ <row>, <col> SIGGET <var> RIGHT                                    ;
  18.                         [PICTURE <pic>]                                 ;
  19.                         [VALID <valid>]                                 ;
  20.                         [WHEN <when>]                                   ;
  21.                         [MESSAGE <message>]                             ;
  22.                         [COLOR <color>]                                 ;
  23.                                                                         ;
  24.       => SetPos( <row>, <col> )                                         ;
  25.        ; AAdd(                                                          ;
  26.                GetList,                                                 ;
  27.                _GET_( <var>, <(var)>, <pic>, <{valid}>, <{when}>)       ;
  28.              )                                                     ;    ;
  29.        ATail(GetList):reader := { | g | sigReader(g,                     ;
  30.        { | get, key | sigKeyRight(get, key) } ) }                         ;
  31.        [ ; Atail(GetList):colorDisp( <color> )]                         ;
  32.        [ ; Atail(GetList):cargo := { <message>, "RIGHT" } ]
  33.  
  34.  
  35. //───── MEMO clause addition (does memoedit)
  36. #xcommand @ <row>, <col> SIGGET <var> MEMO <len>, <lines>                 ;
  37.                         [WHEN <when>]                                   ;
  38.                         [COLOR <color>]                                 ;
  39.                         [<nostamp:NOSTAMP>]                             ;
  40.                                                                         ;
  41.       => SetPos( <row>, <col> )                                         ;
  42.        ; sigMakeMemoGet( <row>, <col>, <"var">, <len>, <lines> )           ;
  43.        [ ; Atail(GetList):preBlock := <{when}> ]                         ;
  44.        [ ; Atail(GetList):colorDisp( <color> )]                         ;
  45.        [ ; Aadd(Atail(GetList):cargo,#<nostamp> )]                      ;
  46.        ; sigMemoDisp(ATail(GetList))
  47.  
  48.  
  49.  
  50. //───── MEMO clause addition for display only (does memoedit with no edit)
  51. #xcommand @ <row>, <col> SIGSAY <var> MEMO <len>, <lines>                 ;
  52.                         [COLOR <color>]                                 ;
  53.                                                                         ;
  54.       => SetPos( <row>, <col> )                                         ;
  55.        ; sigMemoSay( <row>, <col>, <"var">, <len>, <lines> [, <color>] )           
  56.  
  57.  
  58.  
  59. //───── LOGICAL clause addition (displays Yes/No)
  60. #xcommand @ <row>, <col> SIGGET <var> LOGICAL                                    ;
  61.                         [WHEN <when>]                                   ;
  62.                         [VALID <valid>]                                   ;
  63.                         [COLOR <color>]                                 ;
  64.                                                                         ;
  65.       => SetPos( <row>, <col> )                                         ;
  66.        ; AAdd(                                                          ;
  67.                GetList,                                                 ;
  68.                _GET_( <var>, <(var)>, "Y", <{valid}>, <{when}>)       ;
  69.              )                                                     ;    ;
  70.        ATail(GetList):reader := { | g | sigReader(g,                     ;
  71.        { | get, key | sigKeyLogical(get, key) } ) }                       ;
  72.        [ ; Atail(GetList):colorDisp( <color> )]                         ;
  73.        ; Atail(GetList):cargo := { "", "LOGICAL" }                      ;
  74.        ; sigDispLogical()
  75.